home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / NIL.P < prev    next >
Text File  |  1990-09-13  |  425b  |  20 lines
  1. temp <- <primitive 110 3 >
  2. <primitive 112 temp 1        " printString " \
  3.     #( #[ 48 243 245] \
  4.     #( 'nil'  ) ) >
  5.  
  6. <primitive 112 temp 2        " notNil " \
  7.     #( #[ 92 243 245] \
  8.     #(  ) ) >
  9.  
  10. <primitive 112 temp 3        " isNil " \
  11.     #( #[ 91 243 245] \
  12.     #(  ) ) >
  13.  
  14. <primitive 98 #UndefinedObject \
  15.     <primitive 97 #UndefinedObject #Object #\smalltlk\prelude\nil.st \
  16.     #(  ) \
  17.     #( #printString #notNil #isNil  ) \
  18.     temp 1 2 > >
  19.  
  20.